home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / tank < prev    next >
Internet Message Format  |  1995-03-31  |  8KB
  1. From: Douglas R. Cannon <dougc@bert.cs.byu.edu>
  2. Subject:  v02i035:  tank - Tank animation program v1.0, Part01/01
  3. Newsgroups: comp.sources.hp48
  4. Followup-To: comp.sys.hp48
  5. Approved: spell@seq.uncwil.edu
  6.  
  7. Checksum: 1331785255 (verify with brik -cv)
  8. Submitted-by: Douglas R. Cannon <dougc@bert.cs.byu.edu>
  9. Posting-number: Volume 2, Issue 35
  10. Archive-name: tank/part01
  11.  
  12. BEGIN_RDME tank.rdm
  13.  
  14. As if there aren't enough of these already...
  15.  
  16. Here is another HP48s status line animation.  You will see a tank come rolling
  17. onto the screen.  Then another... Then the first tank blows the second away!
  18. Then he calmly rolls off the screen.  Of course, the contents of PICT are not
  19. disturbed.  You can exit early by pressing ON.
  20.  
  21. TANK: Bytes
  22. # 172Eh
  23.  1375.5
  24.  
  25. Included is TANK.RPL -- The entire program is written in RPL, take a look at
  26. it, change it, etc... ( You know, I don't care ware ) . Also there is
  27. TANK.ASC and TANK.UUE
  28.  
  29. By the way... are people really interested in these cute little animations?
  30. I have seen a few pop up, so I wrote this in about 2 hours.  I could do tons
  31. more, but I don't suppose everyone wants to be swamped with status line
  32. animations.  I haven't had the courage to take on another massive project like
  33. the factory animation, but one day I will write a 131 by 64 giant animation
  34. to eat up all my RAM.
  35.  
  36. If anyone has a similar idea they would like me to write, let me know... I'm
  37. always looking for ideas.
  38.  
  39. Enjoy!
  40.  
  41. Doug Cannon
  42. BYU Computer Science Dept, Provo, Utah
  43. dougc@bert.cs.byu.edu
  44.  
  45. END_RDME
  46.  
  47. BEGIN_RPL tank.rpl
  48. %%HP: T(3)A(D)F(.);
  49. \<< {
  50. GROB 16 10 0C100EFF0FFF0F708FF14002CFF3AD67E6B5CFF3
  51. GROB 16 10 0C100EFF0FFF0F708FF14002CFF36BD66BD6CFF3
  52. GROB 16 10 0C100EFF0FFF0F708FF14002CFF3E6B5AD67CFF3
  53. } {
  54. GROB 16 10 0830FF70FFE006C08FF14002CFF3E6B5AD67CFF3
  55. GROB 16 10 0830FF70FFE006C08FF14002CFF36BD66BD6CFF3
  56. GROB 16 10 0830FF70FFE006C08FF14002CFF3AD67E6B5CFF3
  57. } PICT RCL # 0d
  58. # 0d \-> T1 T2 P X Y
  59.   \<<
  60.     IFERR # 163d
  61. # 64d PDIM PICT {
  62. # 16d # 0d } LCD\->
  63. REPL { # 16d # 0d }
  64. PVIEW PICT { # 16d
  65. # 0d } # 131d # 14d
  66. BLANK REPL 1 12
  67.       FOR I 1 3
  68.         FOR J PICT
  69. X # 4d 2 \->LIST T1 J
  70. GET REPL 'X' # 1d
  71. STO+
  72.         NEXT
  73.       NEXT # 148d
  74. 'Y' STO 1 12
  75.       FOR I 1 3
  76.         FOR J PICT
  77. Y # 4d 2 \->LIST T2 J
  78. GET REPL 'Y' # 1d
  79. STO-
  80.         NEXT
  81.       NEXT
  82.       \<<
  83. GROB 7 2 0707 # 51d
  84. \-> BU X
  85.         \<< 200 .02
  86. 300 .02 BEEP BEEP
  87. PICT { # 47d # 5d }
  88. BU GXOR 1 16
  89.           FOR I
  90. PICT X # 5d 2 \->LIST
  91. BU REPL # 4d 'X'
  92. STO+
  93.           NEXT
  94.         \>>
  95.       \>> EVAL
  96.       \<< {
  97. GROB 14 14 00000000000008308F708FE006C00000C3E02001EFF1D6B37BD2EFF1
  98. GROB 14 14 000000700FF00FD10C8100000000000000002001E1E1D2B37BD2EFF1
  99. GROB 14 14 0EF10EB3081300000000000000000000000000002001D0A370C2EFF1
  100. GROB 15 14 00360000000000000000000000000000000000000000100270C2E1E1
  101. GROB 15 14 0000000000000000000000000000000000000000000000004082E0C1
  102. } \-> BL
  103.         \<< 1 5
  104.           FOR I
  105. PICT { # 114d # 0d
  106. } BL I GET REPL 400
  107. I / .01 BEEP 300 I
  108. / .01 BEEP
  109.           NEXT
  110.         \>>
  111.       \>> EVAL 2 WAIT
  112. 1 38
  113.       FOR I 1 3
  114.         FOR J PICT
  115. X # 4d 2 \->LIST T1 J
  116. GET REPL 'X' # 1d
  117. STO+
  118.         NEXT
  119.       NEXT
  120.     THEN
  121.     END TEXT P PICT
  122. STO
  123.   \>>
  124. \>>
  125.  
  126. END_RPL
  127.  
  128. BEGIN_ASC tank.asc
  129. %%HP: T(3)A(D)F(.);
  130. "D9D20E163247A20E1B2073000A0000010000C100EFF0FFF0F708FF14002CFF3A
  131. D67E6B5CFF3E1B2073000A0000010000C100EFF0FFF0F708FF14002CFF36BD66
  132. BD6CFF3E1B2073000A0000010000C100EFF0FFF0F708FF14002CFF3E6B5AD67C
  133. FF3B213047A20E1B2073000A0000010000830FF70FFE006C08FF14002CFF3E6B
  134. 5AD67CFF3E1B2073000A0000010000830FF70FFE006C08FF14002CFF36BD66BD
  135. 6CFF3E1B2073000A0000010000830FF70FFE006C08FF14002CFF3AD67E6B5CFF
  136. 3B2130634E104B02E4A20510000000000000000000E4A2051000000000000000
  137. 00001C432D6E20204513D6E20204523D6E201005D6E201085D6E201095E1632F
  138. D332D9D20E4A20510003A00000000000000E4A20510000400000000000000102
  139. E1634E147A20E4A20510000100000000000000E4A20510000000000000000000
  140. B2130275E1AE8C147A20E4A20510000100000000000000E4A205100000000000
  141. 00000000B21300F2E1634E147A20E4A20510000100000000000000E4A2051000
  142. 0000000000000000B2130E4A20510003800000000000000E4A2051000E000000
  143. 000000000614E1AE8C19C2A23392010000000000002100A132D6E2010949C2A2
  144. 3F2A20A132D6E2010A4634E1D6E201085E4A20510004000000000000000ED2A2
  145. 387C1D6E20204513D6E2010A46C7D1AE8C145632D6E20108597632E4A2051000
  146. 1000000000000000B4402C4232C4232E4A2051000490000000000000045632D6
  147. E20109597632DCC029C2A23392010000000000002100A132D6E2010949C2A23F
  148. 2A20A132D6E2010A4634E1D6E201095E4A20510004000000000000000ED2A238
  149. 7C1D6E20204523D6E2010A46C7D1AE8C145632D6E20109597632E4A205100010
  150. 0000000000000083502C4232C4232C9432D9D20E1632E1B20310002000070000
  151. 0707E4A205100033000000000000001C432D6E20202455D6E201085E16323392
  152. 0200000000000002033920899000000000002033920200000000000003033920
  153. 89900000000000204C5A14C5A1634E147A20E4A2051000F200000000000000E4
  154. A20510005000000000000000B2130D6E202024554E4E19C2A233920100000000
  155. 00006100A132D6E201094634E1D6E201085E4A20510005000000000000000ED2
  156. A2387C1D6E20202455AE8C1E4A2051000400000000000000045632D6E2010859
  157. 7632B4402C4232EF53293632B2130EB3A1C9432D9D20E163247A20E1B2074000
  158. E0000E000000000000000008308F708FE006C00000C3E02001EFF1D6B37BD2EF
  159. F1E1B2074000E0000E0000000000700FF00FD10C8100000000000000002001E1
  160. E1D2B37BD2EFF1E1B2074000E0000E00000EF10EB30813000000000000000000
  161. 00000000002001D0A370C2EFF1E1B2074000E0000F0000003600000000000000
  162. 00000000000000000000000000100270C2E1E1E1B2074000E0000F0000000000
  163. 0000000000000000000000000000000000000000004082E0C1B21301C432D6E2
  164. 02024C4E16329C2A2D13A20A132D6E201094634E147A20E4A205100027000000
  165. 00000000E4A20510000000000000000000B2130D6E202024C4D6E2010946C7D1
  166. AE8C1339202000000000000040D6E20109450FA13392089900000000000104C5
  167. A1339202000000000000030D6E20109450FA13392089900000000000104C5A1C
  168. 4232EF53293632B2130EB3A1ED2A2F17A19C2A23392010000000000008300A13
  169. 2D6E2010949C2A23F2A20A132D6E2010A4634E1D6E201085E4A2051000400000
  170. 0000000000ED2A2387C1D6E20204513D6E2010A46C7D1AE8C145632D6E201085
  171. 97632E4A20510001000000000000000B4402C4232C4232B2130F1732D9D20B21
  172. 305DF22606E1D6E201005634E1DCC02EF53293632B2130E271"
  173.  
  174. END_ASC
  175.  
  176. BYTES: #172Eh 1375.5
  177.  
  178. BEGIN_UU tank.uue
  179. begin 644 tank
  180. M2%!(4#0X+46=+>!A(W0JX+$"-P"@```0```<`/X/_P]_@/]!`,+_HVWGML7_8
  181. MX[$"-P"@```0```<`/X/_P]_@/]!`,+_8]MFV\;_X[$"-P"@```0```<`/X/6
  182. M_P]_@/]!`,+_X[:E;<?_LQ(#="K@L0(W`*```!```#CP?_#O`,:`_T$`PO_C1
  183. MMJ5MQ__CL0(W`*```!```#CP?_#O`,:`_T$`PO]CVV;;QO_CL0(W`*```!``=
  184. M`#CP?_#O`,:`_T$`PO^C;>>VQ?^S$@,VY`&T($XJ4`$```````````!.*E`!O
  185. M````````````P332Y@("5#%M+B!`)=/F`@%0;2X0@-7F`@%9'C;R/2.=+>"D"
  186. M`A4`,`H```````#@I`(5```$````````$"`>-N1!IP).*E`!`!``````````H
  187. M3BI0`0```````````"LQ(%<>ZLA!IP).*E`!`!``````````3BI0`0``````+
  188. M`````"LQ`"\>-N1!IP).*E`!`!``````````3BI0`0```````````"LQX*0":
  189. M%0`P"````````."D`A4`X`````````!@01[JR)$L*C,I$````````!(`&B-M+
  190. M+A"0E"PJ\Z("&B-M+A"@9$,>;2X0@.6D`A4`0`````````#@+2J#Q]'F`@)4=
  191. M,6TN$*!D?!WJR$%E(VTN$("59R-.*E`!``$`````````2P3")"-,,N*D`A4`-
  192. M0`D```````!`92-M+A"0E6<CS0R2+"HS*1`````````2`!HC;2X0D)0L*O.B!
  193. M`AHC;2X0H&1#'FTN$)#EI`(5`$``````````X"TJ@\?1Y@("5#)M+A"@9'P=!
  194. MZLA!92-M+A"0E6<C3BI0`0`!`````````#@%PB0C3#+"22.=+>!A(QXK,`$`Z
  195. M`@!P``!P<$XJ4`$`,P````````#!--+F`@)"56TN$(#E82,S*2`````````@X
  196. M,),"F`D```````(S*2`````````P,),"F`D```````+$I4%<&C;D0:<"3BI0L
  197. M`0`O`````````$XJ4`$`!0`````````K,=#F`@)"5>3DD2PJ,RD0````````B
  198. M%@`:(VTN$)!D0QYM+A"`Y:0"%0!0`````````.`M*H/'T>8"`D)5ZLCAI`(52
  199. M`$``````````0&4C;2X0@)5G(TL$PB0C_C628R,K,>`[&IPTTMD"'C9"IP(>J
  200. M*W`$``X`X```````````@`/X!_@.8`P``#P.`A#^'VT[MRW^'QXK<`0`#@#@"
  201. M```````'\`_P'<`8```````````"$!X>+3NW+?X?'BMP!``.`.```.`?X#N`'
  202. M,0```````````````````A`-.@<L_A\>*W`$``X`\````&,`````````````%
  203. M``````````````$@!RP>'AXK<`0`#@#P````````````````````````````R
  204. M```````$*`X<*S$03"-M+B`@Q.1A(\FBTC$JH#'2Y@(!23;D0:<"3BI0`0!R4
  205. M`````````$XJ4`$````````````K,=#F`@)"3&TN$)!D?!WJR#&3`@(`````*
  206. M```$;2X0D%3P&C,I@)D``````!!`7!HS*2`````````PT.8"`4D%KS&3`I@)S
  207. M```````!Q*7!)"/^-9)C(RLQX#L:WJ+R<1K)HC*3`@$``````(`#H#'2Y@(!2
  208. M2<FB,B\JH#'2Y@(!2C;DT>8"`5A.*E`!``0`````````WJ(R>!QM+B!`%=/FQ
  209. M`@%*QM>ACAQ4-M+F`@%8>3;BI`(5`!``````````L$0@3#+")",K,?!Q(YTMV
  210. 9L!(#U2]B8!YM+A``94,>S0SB7R,Y-K(2`[(2M
  211. ``
  212. end
  213. END_UU
  214.